# Script to handle the output data
source("../readf.r")
# Read in data
x6.0515 <- readf("reg.6.0515",nexp=30)
x6.0516 <- readf("reg.6.0516",nexp=30)
x6.0525 <- readf("reg.6.0525",nexp=30)
x6.0526 <- readf("reg.6.0526",nexp=30)
# organize data
x6a.objf <- list(as.ai=x6.0515$objf, as.wi=x6.0516$objf, ws.ai=x6.0525$objf, ws.wi=x6.0526$objf)
x6a.ofc <- list(as.ai=x6.0515$ofc, as.wi=x6.0516$ofc, ws.ai=x6.0525$ofc, ws.wi=x6.0526$ofc)
#rm(x6.0515, x6.0516, x6.0525, x6.0526)
# Done
